home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / SCHED.TXT < prev    next >
Encoding:
Text File  |  1991-08-20  |  4.4 KB  |  191 lines
  1. ;
  2. ;  SCHED (c) copyright 1990 Chris Butler
  3. ;
  4.  
  5. ;VIDEO M
  6.  
  7.   set entire off
  8.   goto top
  9. all:
  10.   set entire on    ; will cycle thru all modules
  11. top:
  12.  
  13. ;mouse on
  14. global boxllx 0 ; mod 8 = 0
  15. global boxlly 0
  16. global boxw  488
  17. global boxh  115
  18. global boxtitle "Max with Ed the engineer"
  19. set h 17    ; key height
  20. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  21. set txtboxclr 14; 
  22. cload max.clp 30 1 0    ; max's face
  23. tran on 15
  24. cload cover.clp 32 0 1 
  25. merge toursubs.txt
  26.  
  27. set entrypoint "entry_8"    ; for MENUing back
  28. pload palette1.pcx 1
  29. palette 1
  30. pfree 1
  31. set boxtitle "Max and Sue the scheduler"
  32. cload elaine.clp 31 1 0
  33. call steps.txt sched
  34.  
  35. label201:
  36. newbgrnd "elaine1.pcx" 80 40 0 0 200 5
  37. ;mouse on
  38. set str1 "Hi, Max ... what's up?"
  39. set str2 " "
  40. say 0 @str1 @str2
  41. label1a:
  42. getcmd
  43. if @0<>"backup" label202
  44. noise 500 200 50
  45. waitkey 100
  46. goto label1a
  47.  
  48.  
  49. label202:
  50. set str1 "Hey, Sue. We need to schedule a repair job on the Eclipse cartoner."
  51. set str2 " "
  52. say 1 @str1 @str2
  53. getcmd
  54. if @0==backup label201
  55.  
  56. label203:
  57. set str1 "Sure, Max. Let's see when the next major P.M. is."
  58. set str2 " "
  59. say 0 @str1 @str2
  60. getcmd
  61. if @0==backup label202
  62.  
  63. label205:
  64. newbgrnd "8.pcx" 80 0 1 0 10 9
  65. set str1 "That's too late. We've got a block bearing problem and Eclipse has "
  66. set str2 "recommended a retrofit as soon as possible."
  67. say 1 @str1 @str2
  68. getcmd
  69. if @0==backup label203
  70.  
  71. label206:
  72. set str1 "OK, let's see when we can get the machine from production."
  73. set str2 " "
  74. say 0 @str1 @str2
  75. getcmd
  76. if @0==backup label205
  77.  
  78. label207:
  79. newbgrnd "9.pcx" 80 0 1 0 50 9
  80. set str1 "Looks like you can have it on either the 6th or the 20th. Now let's "
  81. set str2 "find out what it takes to do this job."
  82. say 1 @str1 @str2
  83. getcmd
  84. if @0==backup label206
  85.  
  86. label208:
  87. newbgrnd "10.pcx" 80 0 0 0 10 9
  88. set str1 " ... well, here are the procedure steps ..."
  89. set str2 " "
  90. say 0 @str1 @str2
  91. getcmd
  92. if @0==backup label207
  93.  
  94. label209:
  95. newbgrnd "parts.pcx" 80 0 0 0 10 9
  96. set str1 " ... and here are the parts for the job ..."
  97. set str2 " "
  98. say 0 @str1 @str2
  99. getcmd
  100. if @0==backup label208
  101.  
  102. label210:
  103. newbgrnd "12.pcx" 80 40 0 0 10 9
  104. set str1 "... and we want to schedule 3 crafts for a total of 12 hours ..."
  105. set str2 " "
  106. say 0 @str1 @str2
  107. getcmd
  108. if @0==backup label209
  109.  
  110. label211:
  111. newbgrnd "13.pcx" 80 40 0 0 10 9
  112. set str1 " ... and, Max, here are the tools we need."
  113. set str2 " "
  114. say 0 @str1 @str2
  115. getcmd
  116. if @0==backup label210
  117.  
  118. label212:
  119. newbgrnd "14.pcx" 80 0 1 0 10 9
  120. set str1 "We have plenty of unscheduled mechanic labor available; who do you "
  121. set str2 "think would be best for this job?"
  122. say 1 @str1 @str2
  123. getcmd
  124. if @0==backup label211
  125.  
  126. label213:
  127. newbgrnd "15.pcx" 80 0 0 0 10 9
  128. set str1 "If we search on the word `Cartoner' MAXIMO comes back with a list "
  129. set str2 "that includes Mike Jones."
  130. say 0 @str1 @str2
  131. getcmd
  132. if @0==backup label212
  133.  
  134. label214:
  135. newbgrnd "16.pcx" 80 0 0 0 10 9
  136. set str1 "And the Crafts long description field says that Mike has had some "
  137. set str2 "experience with those Eclipse cartoners."
  138. say 0 @str1 @str2
  139. getcmd
  140. if @0==backup label213
  141.  
  142. label215:
  143. set str1 "Great! Please schedule the job, reserve the parts and labor, and "
  144. set str2 "print a work order."
  145. say 1 @str1 @str2
  146. getcmd
  147. if @0==backup label214
  148.  
  149. label216:
  150. newbgrnd "17.pcx" 80 0 1 0 10 9
  151. set str1 "DEMO VIEWERS: IF YOU HAVE A PRINTER ATTACHED TO YOUR PC YOU CAN PRINT"
  152. set str2 " A SAMPLE WORK ORDER BY PRESSING `P', OTHERWISE PRESS `C' TO CONTINUE"
  153. say 1 @str1 @str2
  154. waitkey
  155.  
  156. ifkey p prnt "P" prnt b label215 "B" label215 LEFT label215
  157. goto label217    ; not p => skip to 217
  158. prnt:
  159. call workordr.txt
  160.  
  161. label217:
  162. newbgrnd "elaine1.pcx" 80 40 0 0 10 9
  163. set str1 "Max, this MAXIMO Series 3 is amazing. We're finally communicating "
  164. set str2 "effectively with Production about our work schedules."
  165. say 0 @str1 @str2
  166. getcmd
  167. if @0==backup label216
  168.  
  169. label218:
  170. set str1 "Better planning of scheduled downtime has cut overtime by 20%. And"
  171. set str2 " parts reservation has cut trips to the crib for parts and tools."
  172. say 0 @str1 @str2
  173. getcmd
  174. if @0==backup label217
  175.  
  176. label219:
  177. set str1 "Speaking of parts, I think I'll walk down the hall and see if Irv has"
  178. set str2 " some of those bearings. See you later, Sue."
  179. say 1 @str1 @str2
  180. getcmd
  181. if @0==backup label218
  182. ;mouse off
  183.  
  184. if @entire==on linkit
  185.   link master.txt entry_8     ; else link back
  186. linkit:
  187.   link inv.txt all
  188.  
  189. ;   END SUBR SCHEDULER
  190.  
  191.